From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 24 May 1993 00:03:08 +0000 (+0000)
Subject: (Fset_face_attribute_internal): Don't call unload_font
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96062
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=ebc64af3a0d7e4b0f05aa8a2f56d652495bed5aa;p=emacs.git

(Fset_face_attribute_internal): Don't call unload_font
for the frame's own font.
---

diff --git a/src/xfaces.c b/src/xfaces.c
index 4c053f663fa..5aec6907c0c 100644
--- a/src/xfaces.c
+++ b/src/xfaces.c
@@ -863,7 +863,8 @@ DEFUN ("set-face-attribute-internal", Fset_face_attribute_internal,
   if (EQ (attr_name, intern ("font")))
     {
       XFontStruct *font = load_font (f, attr_value);
-      unload_font (f, face->font);
+      if (face->font != f->display.x->font)
+	unload_font (f, face->font);
       face->font = font;
     }
   else if (EQ (attr_name, intern ("foreground")))